#! /usr/bin/perl -w

#Recorremos los parametros de entrada al programa perl	
system("clear");				
my @array_argumentos=@ARGV; #Me quedo con los argumentos

my $rutaMaestros=""; #Ruta maestros
my $rutaYA=""; #Ruta Donde dejar los resultados y tomar el sum.
my $indicadorSalida=""; #-c,-e,-a(obligatorio)
my $indicadorAgrupacion=""; #-agrup:e(encuestador),-agrup:ce(codigo encuesta)default,-agrup:a(ambas)
my $indicadorEncuestador=""; #Indica con que encuestadores me quedo(-enc:...)
my $indicadorNroEncuestaRealizada=""; #Indica con que nro encuestas realizadas encuesta me quedo.(-nroe:...)
my $indicadorCodigosEncuesta=""; #Indica con que codigos de encuesta me quedo.(-code:...)
my $indicadorSitiosEncuesta=""; #Indica con que sitios de encuesta me quedo.(-site:...)
my $indicadorError=0;
my $procesar_todos_encuestadores = 0; 
my $procesar_todos_codigosencuesta = 0; 
my $procesar_todos_sitiosencuesta = 0;
my $procesar_todos_nroencuesta = 0;
my $cantidadParametros=$#array_argumentos;
my %hash_porNroEncuesta=();
my %hash_porEncuestador=();
my %hash_EncuestasMaestros=();
my %hash_sumencuestas=();


sub llamarHelp(){
	system("clear");				
	open (fileHelp,"listarC.help");
	while (<fileHelp>) {
	 	chomp; 
		 print "$_ \n";
	}	
}
sub cargarEncuestasMaestros(){
#Levantamos las encuestas con sus rangos del archivo de encuestas.
	if (open (ENC, $rutaMaestros . "encuestas.mae")){
		while (<ENC>){
			chomp; # quito el caracter de corte de linea al final de linea
			@array_registro=split(",",$_);
			$hash_EncuestasMaestros{$array_registro[0]}=\@array_registro;
			#print keys(%hash_EncuestasMaestros);	
			@array_aux=@{$hash_EncuestasMaestros{$array_registro[0]}};
			#printf "Codigo de Encuesta:%s\n", $array_aux[0];		
		}
		close(SUM_ENC);

		return 0; 
	}else{
		return 1; 
	}
}
sub decidirRango(){
	my $nroEncuesta=$_[0];
	my $puntaje=$_[1];
	my @array_aux=@{$hash_EncuestasMaestros{$nroEncuesta}};
	my $rojoIni=$array_aux[3];
	my $rojoFin=$array_aux[4];
	my $amarilloIni=$array_aux[5];
	my $amarilloFin=$array_aux[6];
	my $verdeIni=$array_aux[7];
	my $verdeFin=$array_aux[8];
	
	if (($puntaje >= $rojoIni) && ($puntaje <= $rojoFin)){
		return 0; #1 equivale a rojo	
	}
	if (($puntaje >= $amarilloIni) && ($puntaje <= $amarilloFin)){
		return 1; #2 equivale a amarillo	
	}else{
		return 2;
	}
	
}
sub cargarPedidosPorParametro(){ #Recibe el hashing a cargar y ademas el indicador a cargar.
 	my $indicador_aux=$_[0];
	my %hash_aux=();
	my $nroCampo=$_[1];
	#printf "Indicador: %s\n",$indicador_aux;
	if($indicador_aux ne ""){
		my @array_auxSplit=split(/,/,$indicador_aux);
		my $cantidadSplit=scalar(@array_auxSplit);
		if ($cantidadSplit ==1){# RegExp, unica entidad o todas.
			$esregular=0;			
			if($indicador_aux eq "*"){
				$indicador_aux= "." . $indicador_aux ;
				$esregular=1;
			}
			if($indicador_aux =~ /^reg/){
				#printf "Es reg";			     	
				@array_auxSplit=split(/reg/,$indicador_aux);
				$indicador_aux=$array_auxSplit[1];
				#printf "Es reg: %s", $indicador_aux;			     						
				$esregular=1;
			}
			if($esregular==1){
				#Nos fijamos el patrón que puede venir
				foreach $k (keys %hash_sumencuestas) {
				   @array_aux=@{$hash_sumencuestas{$k}};
				   if($array_aux[$nroCampo] =~ /$indicador_aux/){
					$hash_aux{$array_aux[$nroCampo]}=$array_aux[$nroCampo]; 
				   }
				}
			}else{
				#Nos fijamos el patrón que puede venir
				foreach $k (keys %hash_sumencuestas) {
				   @array_aux=@{$hash_sumencuestas{$k}};
				   if($array_aux[$nroCampo] = $indicador_aux){
					$hash_aux{$array_aux[$nroCampo]}=$array_aux[$nroCampo]; 
				   }
				}
			}
		}else{ #Varios parametros de peticion que los cargamos en el hash pasdo por parametro
		foreach (@array_auxSplit){
				$parametroPeticion=$_;
				foreach $k (keys %hash_sumencuestas) {
				   @array_aux=@{$hash_sumencuestas{$k}};
				   if($parametroPeticion eq $array_aux[3]){
					$hash_aux{$_}=$parametroPeticion; 
				   }
				}				
			}
		}
		
	}else{
		return %hash_aux=();
	}
	return %hash_aux;		
}

sub mostrarTotales(){
	printf "\n\n\n";	
	%hash_auxiliar=%{$_[0]}; 
	my @array_colores_totales=@{$_[1]};
	$titulo=$_[2];
	$out=$_[3];
	printf $out "================================================================================\n";					
	printf $out "%-30s  ǁ",$titulo;
	printf $out "%15s   ǁ","Rojo";
	printf $out "%15s   ǁ","Amarillo";	
	printf $out "%10s","Verde ǁ";
	
	printf  $out "\n================================================================================\n";				
	foreach $k (sort keys %hash_auxiliar) {
		@array_aux=@{$hash_auxiliar{$k}};
		printf $out "%-30s  ǁ",$k;
		printf $out "%15s   ǁ",$array_aux[0];
		printf $out "%15s   ǁ",$array_aux[1];
		printf $out "%5s   ǁ",$array_aux[2];
		printf $out "\n";
	}
	printf $out "\n================================================================================\n";		
	printf $out "%-30s  ǁ","Totales";
	printf $out "%15d   ǁ",$array_colores_totales[0];
	printf $out "%15d   ǁ",$array_colores_totales[1];	
	printf $out "%5d   ǁ\n",$array_colores_totales[2];
}
sub mostrarConsultaPuntual(){
	printf "\n";	
	%hash_auxiliar_sumencuestas=%{$_[0]};
	%hash_auxiliar_encuestasmaestros=%{$_[1]};
	%hash_auxiliar_encuestadores=%{$_[2]};
	$nroencuesta_auxiliar=$_[3];
	$out=$_[4];
	
	printf $out "\nEncuesta realizada: %s\n",$indicadorNroEncuestaRealizada;
	@array_aux_informacion=@{$hash_sumencuestas{$indicadorNroEncuestaRealizada}};
	@array_auxiliar_encuesta=@{$hash_EncuestasMaestros{$array_aux_informacion[3]}};
	$color=&decidirRango($array_aux_informacion[3],$array_aux_informacion[4]);
	if($color eq "0") {$color="Rojo";}
	if($color eq "1") {$color="Amarillo";}
	if($color eq "2") {$color="Verde";}
	printf $out "Encuesta Nro:%s ",$indicadorNroEncuestaRealizada;
	printf $out "Realizada por:%s ",$array_aux_informacion[0];
	printf $out "Nombre:%s ",$hash_encuestadores_file{$array_aux_informacion[0]};
	printf $out "Fecha:%s \n",$array_aux_informacion[1];
	printf $out "Cliente:%s ", $array_aux_informacion[5];
	printf $out "Modalidad:%s ", $array_aux_informacion[7];
	printf $out "Sitio:%s ", $array_aux_informacion[6];
	printf $out "Persona:%s \n", $array_aux_informacion[8];
	printf $out "Encuesta Aplicada: %s - %s, compuesta por %d preguntas.\n", $array_aux_informacion[3],$array_auxiliar_encuesta[1],$array_auxiliar_encuesta[2];
	printf $out "Puntaje obtenido: %d , calificacion: %s \n", $array_aux_informacion[4],$color;
	printf $out "\n\n";		
}

if ($cantidadParametros < 9 ) { #Si vienen todos los datos solicitados para este tipo de informe, no puede superar mayor cantidad que 8
	foreach $param (@array_argumentos) {
		#printf "Parametro: $param \n";
		if($param =~ /^-help/){
			&llamarHelp();
			exit 1;
		}
		#El primer parametro pasado es ruta maestros
		if ($rutaMaestros eq ""){
			$rutaMaestros = $param;
			#printf "Ruta Maestros Parametro: $rutaMaestros \n";
			next;
		}
		if ($rutaYA eq ""){ #El segundo parametro pasado es ruta YA
			$rutaYA = $param;
			#printf "Ruta YA Parametro: $rutaYA \n";
			next;
		}
		if ($indicadorSalida eq ""){ #El tercer parametro pasado es el tipo de salida
			$indicadorSalida = $param;
			#printf "Tipo ssalida Parametro: $indicadorSalida \n";
			next;
		}
	
		if($param =~ /^-agrup/){
			@array_aux=split(/:/,$param);
			$indicadorAgrupacion=$array_aux[1];
			#printf "Agrupacion: $indicadorAgrupacion \n";
		}
		if($param =~ /^-enc/){
			@array_aux=split(/:/,$param);
			$indicadorEncuestador=$array_aux[1];
			#printf "Encuestador: $indicadorEncuestador \n";
		}
		if($param =~ /^-nroe/){
			@array_aux=split(/:/,$param);
			$indicadorNroEncuestaRealizada=$array_aux[1];
			#printf "Encuesta realizada: $indicadorNroEncuestaRealizada \n";
		}	
		if($param =~ /^-code/){
			@array_aux=split(/:/,$param);
			$indicadorCodigosEncuesta=$array_aux[1];
			#printf "Codigo Encuesta: $indicadorCodigosEncuesta \n";
		}
		if($param =~ /^-site/){
			@array_aux=split(/:/,$param);
			$indicadorSitiosEncuesta=$array_aux[1];
			#printf "Sitios Encuesta: $indicadorSitiosEncuesta \n";
		}
	}	
} else {
	printf "Error en la cantidad de parámetros, visualizar archivo Help \n";	
}


if ($indicadorSalida ne "-a" && $indicadorSalida ne "-c" && $indicadorSalida ne "-e"){ #El tercer parametro pasado es el tipo de salida
	system("clear");	
	printf "Error, campo indicador salida, debe ser -a o -c o -e por favor revise help\n";
	exit 1;
}

if ($indicadorAgrupacion ne "e" && $indicadorAgrupacion ne "ce" && $indicadorAgrupacion ne "a"){ #El tercer parametro pasado es el tipo de salida
	system("clear");		
	printf "Error, campo indicador agrupacion, debe ser -a o -ce o -e por favor revise help\n";
	exit 1;
}

#Levantamos las encuestas con sus rangos del archivo de encuestas y queda cargado en Encuestas Maestros
&cargarEncuestasMaestros();
#@array_aux=@{$hash_EncuestasMaestros{"E01"}};
#printf "%d", &decidirRango($array_aux[0],$array_aux[4]);

printf "\n\n";

#Levantamos el archivo de sumario de encuestas, con clave principal el nro de encuesta realizada(que es unico por enunciado)
if (open (SUM_ENC, $rutaYA . "encuestas.sum")){
	while (<SUM_ENC>){
		chomp; # quito el caracter de corte de linea al final de linea
		my @array_registro=split(",",$_);
		#printf "Nro de Encuesta:%s \n", $array_registro[3];		
		$hash_sumencuestas{$array_registro[2]}=\@array_registro;
		#print "\n",keys(%hash_sumencuestas);	
		#@array_aux=@{$hash_sumencuestas{$array_registro[2]}};
		#printf "\nNro de Encuesta:%s", $array_aux[2];		
	}
	close(SUM_ENC);
	#Cargamos los datos pedidos por parametro en un hashing particular por cada uno que se valido contra el archivo de sumario, para luego recorrer esto 		   directamente.

	my %hash_encuestadores_pedidos=();	
	my %hash_nroencuestas_pedidos=();
	my %hash_codencuestas_pedidos=();
	my %hash_sitiosencuestas_pedidos=();

	if ($indicadorEncuestador ne ""){%hash_encuestadores_pedidos=&cargarPedidosPorParametro($indicadorEncuestador,0);}
	if($indicadorNroEncuestaRealizada ne ""){%hash_nroencuestas_pedidos=&cargarPedidosPorParametro($indicadorNroEncuestaRealizada,2);}
	if($indicadorCodigosEncuesta ne ""){%hash_codencuestas_pedidos=&cargarPedidosPorParametro($indicadorCodigosEncuesta,3);}
	if($indicadorSitiosEncuesta ne ""){%hash_sitiosencuestas_pedidos=&cargarPedidosPorParametro($indicadorSitiosEncuesta,6);}
	
	#foreach $k (keys %hash_encuestadores_pedidos){printf "En Array encuestadores: %s\n",$k;}
	#foreach $k (keys %hash_nroencuestas_pedidos){printf "En Array nroencuestas: %s\n",$k;}
	#foreach $k (keys %hash_codencuestas_pedidos){printf "En Array codencuestas: %s\n",$k;}
	#foreach $k (keys %hash_sitiosencuestas_pedidos){printf "En Array sitiosencuestas: %s\n",$k;}
	no warnings 'uninitialized'; 
	#Chequeamos busqueda particular por una sola nroencuesta
	$cantidadEncuestasPedidas = scalar keys %hash_nroencuestas_pedidos;	
	if($cantidadEncuestasPedidas==1 && $indicadorEncuestador eq "" && $indicadorCodigosEncuesta eq "" && $indicadorSitiosEncuesta eq ""){
		#Levantamos el archivo de sumario de encuestas, con clave principal el nro de encuesta realizada(que es unico por enunciado)
		my $hash_encuestadores_file=();		
		my @array_registro=();
		my $userid="";
		my $nombre="";
		if (open (ENCUESTADORES, $rutaMaestros . "encuestadores.mae")){
			while (<ENCUESTADORES>){
				chomp; # quito el caracter de corte de linea al final de linea
				@array_registro=split(",",$_);
				my $userid=$array_registro[2];
				my $nombre=$array_registro[1];
				if($userid ne ""){ #Va por userid}
					$hash_encuestadores_file{$userid}=$nombre;
					#printf "\nnombre: %s, userid:%s\n",$hash_encuestadores_file{$userid},$userid;
				}
				
			}
			close(ENCUESTADORES);		
		}
		if ($indicadorSalida eq "-a"){
			open($pfile,">>out.txt");
			&mostrarConsultaPuntual(\%hash_sumencuestas,\%hash_EncuestasMaestros,\%hash_encuestadores_file,$indicadorNroEncuestaRealizada,"STDOUT");
			&mostrarConsultaPuntual(\%hash_sumencuestas,\%hash_EncuestasMaestros,\%hash_encuestadores_file,$indicadorNroEncuestaRealizada,$pfile);
		}
		if($indicadorSalida eq "-e"){
			open($pfile,">>out.txt");
			&mostrarConsultaPuntual(\%hash_sumencuestas,\%hash_EncuestasMaestros,\%hash_encuestadores_file,$indicadorNroEncuestaRealizada,$pfile);
		}
		if($indicadorSalida eq "-c"){
			&mostrarConsultaPuntual(\%hash_sumencuestas,\%hash_EncuestasMaestros,\%hash_encuestadores_file,$indicadorNroEncuestaRealizada,"STDOUT");
		}
		exit 1;	
	}

		#Vamos a hacer el loop manteniendo ordenado por encuestadores segun la iteracion de todos los criterios			
		#%hash_porEncuestador=();
		my %hash_claves_sitio_Encuesta=();
		my %hash_claves_nro_Encuesta=();
		my %hash_claves_cod_Encuesta=();
		my %hash_claves_encuestador_Encuesta=();
		
		my @array_claves_final=();		
		
		if($indicadorEncuestador eq ""){
			foreach $k (keys %hash_sumencuestas) { 
				$hash_claves_encuestador_Encuesta{$k}=$k;			
			}
		}
		if($indicadorNroEncuestaRealizada eq ""){
			foreach $k (keys %hash_sumencuestas) { 
				$hash_claves_nro_Encuesta{$k}=$k;			
			}
		}
		if($indicadorCodigosEncuesta eq ""){
			foreach $k (keys %hash_sumencuestas) { 
				$hash_claves_cod_Encuesta{$k}=$k;			
			}
		}
		if($indicadorSitiosEncuesta eq ""){
			foreach $k (keys %hash_sumencuestas) { 
				$hash_claves_sitio_Encuesta{$k}=$k;			
			}
		}
		

		
		#Nos quedamos con las claves que esten en todos los filtros, vamos removiendo las que no cumplen con cada filtro
		foreach $k (keys %hash_sumencuestas) {
			@array_aux=@{$hash_sumencuestas{$k}};
			foreach $q (keys %hash_nroencuestas_pedidos){	        
				if($array_aux[2] eq $q){
					$hash_claves_nro_Encuesta{$k}=$k; #Removemos la clave para nro de encuesta
			   	}
			}
			foreach $q (keys %hash_encuestadores_pedidos){	        
				if($array_aux[0] eq $q){
					$hash_claves_encuestador_Encuesta{$k}=$k; #Removemos la clave para encuestador
			   	}
			}
			$esta=0;
			foreach $q (keys %hash_codencuestas_pedidos){	        
				#printf "array: %s-%s,",$array_aux[3],$q;				
				if($array_aux[3] eq $q){
					$hash_claves_cod_Encuesta{$k}=$k; #Removemos la clave para codigo de encuestas
			   	}
			}
			foreach $q (keys %hash_sitiosencuestas_pedidos){	        
				if($array_aux[6] eq $q){
					$hash_claves_sitio_Encuesta{$k}=$k; #Removemos la clave para sitio de encuestas
			   	}
			}
		}
		#print "\n",keys(%hash_claves_nro_Encuesta);
		#print "\n",keys(%hash_claves_encuestador_Encuesta);
		#print "\n",keys(%hash_claves_sitio_Encuesta);
		#print "\n",keys(%hash_claves_cod_Encuesta);

		foreach $k (keys %hash_claves_nro_Encuesta) {
			my $estaenc=0;
			my $estacod=0;
			my $estasitio=0;
			foreach $q (keys %hash_claves_encuestador_Encuesta) {
				if($k == $q){$estaenc=1;}
			}
			foreach $q (keys %hash_claves_cod_Encuesta) {
				if($k == $q){$estacod=1;}
			}
			foreach $q (keys %hash_claves_sitio_Encuesta) {
				if($k == $q){$estasitio=1;}
			}
			if($estaenc == 1 && $estacod==1 && $estasitio==1){#Esta en todas.			
				push(@array_claves_final,$k);
			}
		}

		#Ya tenemos en array de claves todas las claves(nro de encuesta) que coinciden con la busqueda pedida ahora solamente tenemos que pedir estas claves y ordenar por lo que nos piden agrupar.

	#Segun la agrupacion es como vamos a armar los resultados.
	if($indicadorAgrupacion eq "e"){ #Encuestador
		%hash_porEncuestador=();
		my @array_colores_totales=();
		$array_colores_totales[0]=0;$array_colores_totales[1]=0;$array_colores_totales[2]=0;
		foreach(@array_claves_final){
			printf "Clave: %s \n", $_;
			my @array_colores=();
			$array_colores[0]=0;$array_colores[1]=0;$array_colores[2]=0;
			@array_aux=@{$hash_sumencuestas{$_}};#Tomamos el vector segun la clave que se pidio			
			$puntaje=$array_aux[4];
			$encuestador=$array_aux[0];
			printf "Encuestador: %s\n", $encuestador;
			printf "Puntaje: %s\n", $puntaje;
			$rangoColor=&decidirRango($array_aux[3],$puntaje);
						
			if( exists($hash_porEncuestador{$encuestador}) ){
				@array_colores=@{$hash_porEncuestador{$encuestador}};
				
			}
			$array_colores[$rangoColor]+=1;
			$array_colores_totales[$rangoColor]+=1;
			$hash_porEncuestador{$encuestador}=\@array_colores;}
		if ($indicadorSalida eq "-a"){
			open($pfile,">>out.txt");
			&mostrarTotales(\%hash_porEncuestador,\@array_colores_totales,"Encuestador","STDOUT");
			&mostrarTotales(\%hash_porEncuestador,\@array_colores_totales,"Encuestador",$pfile);
		}
		if($indicadorSalida eq "-e"){
				open($pfile,">>out.txt");
				&mostrarTotales(\%hash_porEncuestador,\@array_colores_totales,"Encuestador",$pfile);
		}
		if($indicadorSalida eq "-c"){
			&mostrarTotales(\%hash_porEncuestador,\@array_colores_totales,"Encuestador","STDOUT");
		}
		
	}
	if($indicadorAgrupacion eq "ce"){ #Codigo Encuesta
		%hash_porCodigoEncuesta=();
		my @array_colores_totales=();
		$array_colores_totales[0]=0;$array_colores_totales[1]=0;$array_colores_totales[2]=0;
		foreach(@array_claves_final){
			printf "Clave: %s \n", $_;
			my @array_colores=();
			$array_colores[0]=0;$array_colores[1]=0;$array_colores[2]=0;
			@array_aux=@{$hash_sumencuestas{$_}};#Tomamos el vector segun la clave que se pidio			
			$puntaje=$array_aux[4];
			$codencuesta=$array_aux[3];
			printf "Codigo Encuesta: %s\n", $codencuesta;
			printf "Puntaje: %s\n", $puntaje;
			$rangoColor=&decidirRango($array_aux[3],$puntaje);
						
			if( exists($hash_porCodigoEncuesta{$codencuesta}) ){
				@array_colores=@{$hash_porCodigoEncuesta{$codencuesta}};
				
			}
			$array_colores[$rangoColor]+=1;
			$array_colores_totales[$rangoColor]+=1;
			$hash_porCodigoEncuesta{$codencuesta}=\@array_colores;}
		if ($indicadorSalida eq "-a"){
			open($pfile,">>out.txt");
			&mostrarTotales(\%hash_porCodigoEncuesta,\@array_colores_totales,"CodEncuesta","STDOUT");
			&mostrarTotales(\%hash_porCodigoEncuesta,\@array_colores_totales,"CodEncuesta",$pfile);
		}
		if($indicadorSalida eq "-e"){
				open($pfile,">>out.txt");
				&mostrarTotales(\%hash_porCodigoEncuesta,\@array_colores_totales,"CodEncuesta",$pfile);
		}
		if($indicadorSalida eq "-c"){
			&mostrarTotales(\%hash_porCodigoEncuesta,\@array_colores_totales,"CodEncuesta","STDOUT");
		}
	}
	if($indicadorAgrupacion eq "a"){ #Encuestador.CodigoEncuesta
		%hash_porEncuestador_CodigoEncuesta=();
		my @array_colores_totales=();
		$array_colores_totales[0]=0;$array_colores_totales[1]=0;$array_colores_totales[2]=0;
		foreach(@array_claves_final){
			printf "Clave: %s \n", $_;
			my @array_colores=();
			$array_colores[0]=0;$array_colores[1]=0;$array_colores[2]=0;
			@array_aux=@{$hash_sumencuestas{$_}};#Tomamos el vector segun la clave que se pidio			
			$puntaje=$array_aux[4];
			$codencuesta=$array_aux[3];
			$encuestador=$array_aux[0];
			printf "Codigo Encuesta: %s\n", $codencuesta;
			printf "Puntaje: %s\n", $puntaje;
			$rangoColor=&decidirRango($array_aux[3],$puntaje);
						
			if( exists($hash_porEncuestador_CodigoEncuesta{$encuestador . "." . $codencuesta}) ){
				@array_colores=@{$hash_porEncuestador_CodigoEncuesta{$encuestador . "." . $codencuesta}};
				
			}
			$array_colores[$rangoColor]+=1;
			$array_colores_totales[$rangoColor]+=1;
			#printf "%s", $encuestador . $codencuesta;
			$hash_porEncuestador_CodigoEncuesta{$encuestador . "." . $codencuesta}=\@array_colores;}
		
		if ($indicadorSalida eq "-a"){
			open($pfile,">>out.txt");
			&mostrarTotales(\%hash_porEncuestador_CodigoEncuesta,\@array_colores_totales,"Encuestador.CodEncuesta","STDOUT");
			&mostrarTotales(\%hash_porEncuestador_CodigoEncuesta,\@array_colores_totales,"Encuestador.CodEncuesta",$pfile);
		}
		if($indicadorSalida eq "-e"){
				open($pfile,">>out.txt");
				&mostrarTotales(\%hash_porEncuestador_CodigoEncuesta,\@array_colores_totales,"Encuestador.CodEncuesta",$pfile);
		}
		if($indicadorSalida eq "-c"){
			&mostrarTotales(\%hash_porEncuestador_CodigoEncuesta,\@array_colores_totales,"Encuestador.CodEncuesta","STDOUT");
		}
	}
}else{
	print "Hubo un error al querer abrir el achivo ". $rutaYA . "encuestas.sum\n";
}



print "\n\n";

exit;

